home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 86
/
64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_A.d64
/
autokauf ii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
19KB
|
520 lines
10 rem *******************
20 rem * kostenvergleich *
30 rem * fuer autos *
60 rem * by d. berner *
90 rem *******************
95 ifsa=0thensa=49152:load"inp/4",8,1
100 sa=49152:sb=sa+3:sc=sb+3:poke53280,14:poke53281,6:print"[154]"chr$(142)chr$(8)
110 u=20:dimpg(u),pz(u),pr(u),pt(u),pu(u),pl(u),pd(u),pf(u),p1(u),p2(u),p3(u)
120 dimul$(u),ud$(u),uf$(u),u1$(u),u2$(u),u3$(u),u4$(u),u5$(u)
130 dimp4(u),p5(u),p1$(u),p2$(u),p3$(u),p4$(u),p5$(u),pe(u),iz(u),hr(u),ty$(u)
140 dimtk$(u),p$(u),hu(u),vs(u),vh(u),vt(u),vv(u),vi(u),ve(u),tp(u),wk(u),wj(u)
150 dimtr$(u),wv(u),pr$(u),pt$(u),pu$(u),pl$(u),pd$(u),pf$(u),le(u),so(u),p(u)
160 dimkb(u),zm(u),mo(u),ge(u),az(u),ks(u),kr(u),ur$(u),ut$(u),uu$(u),k(u)
170 fori=1to20:ty$(i)="0":tk$(i)="0":p$(i)="0"
180 tr$(i)="0":p1$(i)="0":p2$(i)="0":p3$(i)="0":p4$(i)="0":p5$(i)="0"
190 pr$(i)="0":pt$(i)="0":pu$(i)="0":pl$(i)="0":pd$(i)="0":pf$(i)="0":next
200 p1$="0":p2$="0":p3$="0":p4$="0":p5$="0"
210 printchr$(147):fory=1to6:print:next
220 print" [206][207][183][183][183][207][183][183] [223]"
230 print" [206] [180] [180] [223]"
240 print" [206] [180][160][160][160][180][160][160] [223]"
250 print" [180] [175] [180] [223]"
260 print" [180] [180] "
270 print" [180] [206][183][183][205] [165] [165] "
280 print" [161] [167] [165][180] [180][167][183][183][183][183][165] "
290 print" [146] "
300 print" [223] [146][169] [223] [146][169]"
310 fori=1to1000:next
320 printchr$(19):fory=1to4:print:next:print" k o s t e n v e r g l e i c h"
330 fori=1to2000:next
340 fory=1to12:print:next:print" preise und haltungskosten"
350 fori=1to2000:next
360 print:print:printchr$(18)"1"chr$(146)" dateneingabe"
370 print:printchr$(18)"2"chr$(146)" laden gespeicherter daten von diskette";
380 getm$:ifm$="1"then410
390 ifm$="2"then2830
400 goto380
410 rem * angaben zu den einzelnen fahrzeugen*
420 n=n+1
430 printchr$(147)chr$(18)"fahrzeug nr."n;chr$(157)" ":i=n
440 print"typ: "ty$(i):printchr$(145)spc(3):syssa:inputty$(i)
450 print"kurzbezeichnung (max. 3 buchst.) ";tk$(i)
460 printchr$(145)spc(32);:syssb:inputtk$(i)
470 print:print"leistung(kw) "le(i):printchr$(145)spc(12):syssc:inputle(i)
480 printchr$(145)spc(19)"hubraum[160](ccm) "hu(i):printchr$(145)spc(32);
490 syssc:inputhu(i)
500 print:print"grundpreis "pg(i):printchr$(145)spc(10):syssc:inputpg(i)
510 print:print"ueberfuehrung + zulassung "pz(i)
520 printchr$(145)spc(25):syssc:inputpz(i)
530 print:printchr$(18)" e x t r a s : ";
540 printchr$(18)"setzen sie statt des preises '*' ein, ";
550 printchr$(18)"wenn der posten schon im grundpreis ent-";
560 printchr$(18)"halten ist, bzw. '0', wenn das extra ";
570 printchr$(18)"nicht gewuenscht wird oder bei diesem ";
580 printchr$(18)"fahrzeug nicht erhaeltlich ist! "
590 print"autoradio "pr$(i)
600 printchr$(145)spc(16):syssa:inputex$:gosub1390:pr(i)=ex:pr$(i)=ex$
610 print:print"4 tueren "pt$(i)
620 printchr$(145)spc(16):syssa:inputex$:gosub1390:pt(i)=ex:pt$(i)=ex$
630 print:print"unterboden- u.hohlraumschutz "pu$(i)
640 printchr$(145)spc(28):syssa:inputex$:gosub1390:pu(i)=ex:pu$(i)=ex$
650 print:print"servolenkung "pl$(i)
660 printchr$(145)spc(16):syssa:inputex$:gosub1390:pl(i)=ex:pl$(i)=ex$
670 print:print"schiebedach "pd$(i)
680 printchr$(145)spc(16):syssa:inputex$:gosub1390:pd(i)=ex:pd$(i)=ex$
690 print:print"sonderlackierung "pf$(i)
700 printchr$(145)spc(16):syssa:inputex$:gosub1390:pf(i)=ex:pf$(i)=ex$
710 print:print:print"weitere extras: (max.5)":print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
720 print"(hoechstens 9 buchstaben)"
730 ifp1$<>"0"then760
740 gosub1440:ife$="n"then980
750 syssa:inputp1$:iflen(p1$)>9thenp1$=left$(p1$,9)
760 print:printp1$,," "p1$(i):printchr$(145),,;
770 syssa:inputex$:gosub1390:p1(i)=ex:p1$(i)=ex$
780 ifp2$<>"0"then810
790 gosub1440:ife$="n"then980
800 syssa:inputp2$:iflen(p2$)>9thenp2$=left$(p2$,9)
810 print:printp2$,," "p2$(i):printchr$(145),,;
820 syssa:inputex$:gosub1390:p2(i)=ex:p2$(i)=ex$
830 ifp3$<>"0"then860
840 gosub1440:ife$="n"then980
850 syssa:inputp3$:iflen(p3$)>9thenp3$=left$(p3$,9)
860 print:printp3$,," "p3$(i):printchr$(145),,;
870 syssa:inputex$:gosub1390:p3(i)=ex:p3$(i)=ex$
880 ifp4$<>"0"then910
890 gosub1440:ife$="n"then980
900 syssa:inputp4$:iflen(p4$)>9thenp4$=left$(p4$,9)
910 print:printp4$,," "p4$(i):printchr$(145),,;
920 syssa:inputex$:gosub1390:p4(i)=ex:p4$(i)=ex$
930 ifp5$<>"0"then960
940 gosub1440:ife$="n"then980
950 syssa:inputp5$:iflen(p5$)>9thenp5$=left$(p5$,9)
960 print:printp5$,," "p5$(i):printchr$(145),,;
970 syssa:inputex$:gosub1390:p5(i)=ex:p5$(i)=ex$
980 print:print:print"inzahlungnahme des alten wagens fuer"
990 print"wieviel dm "iz(i):printchr$(145)spc(10):syssc:inputiz(i)
1000 print:print"haendlerrabatt in % "hr(i):printchr$(145)spc(19):syssc:inputhr(i)
1010 pe(i)=pg(i)+pz(i)+pr(i)+pt(i)+pu(i)+pl(i)+pd(i)+pf(i)
1020 pe(i)=pe(i)+p1(i)+p2(i)+p3(i)+p4(i)+p5(i)-iz(i)
1030 pe(i)=int(pe(i)*(1-hr(i)/100)*100+.5)/100
1040 forj=1to40:print"[183]";:next:print"insgesamt",,pe(i)"dm":print:print
1050 gosub4400
1060 print:print:print"sollen daten fuer einen weiteren wagen eingegeben werden? (j/n)"
1070 gete$:ife$="j"then420
1080 ife$="n"then1100
1090 goto1070
1100 poke53280,14:poke53281,6
1110 printchr$(147)chr$(18)chr$(154)" z u r a u s w a h l "
1120 printchr$(18)"1"chr$(146)" dateneingabe fuer ein weiteres fahrzeug"
1130 print:printchr$(18)"2"chr$(146)" korrektur: preisangaben
1140 [153]:[153][199](18);
1150 [153]"3"[199](146)" steuer und versicherung":[153]" (eingabe bzw. korrektur)"
1160 [153]:[153][199](18)"4"[199](146)" werkstattkosten":[153]" (eingabe bzw. korrektur)"
1170 [153]:[153][199](18)"5"[199](146)" betriebskosten":[153]" (eingabe bzw. korrektur)"
1180 [153]:[153][199](18)"6"[199](146)" tabelle'anschaffungspreis'"
1190 [153]:[153][199](18)"7"[199](146)" tabelle 'kosten pro monat'
1200 print:printchr$(18)"8"chr$(146)" tabelle 'kosten pro kilometer'
1210 [153]:[153][199](18)"9"[199](146)" grafik"
1220 [153]:[153][199](18)"*"[199](146)" speichern der daten auf diskette";
1230 [161]e$:[139]e$[178]""[167]1230
1240 [139]e$[178]"*"[167]2640
1250 e[178][197](e$):[145] e [137]410,1270,1470,1660,1830,2240,2370,2550,3050
1260 [137]1230
1270 [153][199](147)[199](18)" k o r r e k t u r ( p r e i s eclose) "
1280 [141]1810
1290 [153]:[153]"korrektur fuer nr.";:[158]sc:[133]i
1300 [153]:[153]:[153]"die korrektur erfolgt durch ueber-"
1310 [153]"schreiben, einfuegen oder anhaengen."
1320 [153]"nach der korrektur oder wenn nichts ver-";
1330 [153]"aendert werden soll, bitte "[199](18)"return"[199](146)
1340 [153]"druecken!"
1350 [153]:[153]:[153]"weiter?"
1360 [161]e$:[139]e$[178]""[167]1360
1370 [137]440
1380 [128]
1390 [143] preise fuer sonderzubehoer
1400 [139]ex$[178]"0"[167]ex[178]0:[142]
1410 [139]ex$[178]"*"[167]ex[178]0:[142]
1420 ex[178][197](ex$):[139]ex[179][177]0[167][142]
1430 [153]"loadeingabe nicht korrekt!":[153]"bitte neueingabe!";:[158]sa:[133]ex$:[137]1400
1440 [153]:[153]"wird die eingabe weiterer extras gewuenscht?"
1450 [161]e$:[139]e$[178]"j"[176]e$[178]"n"[167][142]
1460 [137]1450
1470 [153][199](147):[143] *steuer u.versicherung*
1480 [141]1810
1490 [153]:[153]:[153]"steuer- und versicherungsangaben fuer"
1500 [153]"fahrzeug nr.";:[158]sc:[133]i
1510 [153][199](147)[199](18)" steuer und versicherung "
1520 [153]"fuer "ty$(i)
1530 [153]:[153][199](144)"kraftfahrzeugsteuer/jahr"[199](154):[153]" "vs(i)
1540 [153][199](145);:[158]sc:[133]vs(i)
1550 [153]:[153][199](144)"haftpflichtversicherung/jahr"[199](154):[153]" "vh(i)
1560 [153][199](145);:[158]sc:[133]vh(i)
1570 [153]:[153][199](144)"teilkaskoversicherung/jahr"[199](154):[153]" "vt(i)
1580 [153][199](145);:[158]sc:[133]vt(i)
1590 [153][199](144)
1600 [153]"vollkaskoversicherung/jahr"[199](154):[153]" "vv(i):[153][199](145);
1610 [158]sc:[133]vv(i)
1620 [153][199](144)
1630 [153][199](144)"insassenunfallversicherung"[199](154):[153]" "vi(i):[153][199](145);
1640 [158]sc:[133]vi(i)
1650 [137]1100
1660 [141]1810:[153]:[153]"werkstattkosten fuer nr.";:[158]sc:[133]i
1670 [153][199](147)[199](18)" w e r k s t a t t k o s t e n "
1680 [153]"zu den werkstattkosten gehoeren u.a.:"
1690 [153]"oelwechsel, inspektionen, reifen- und auspufferneuerung..."
1700 [153]"weil es kaum moeglich ist, die werkstatt";
1710 [153]"kosten der naechsten jahre exakt voraus-";
1720 [153]"zuberechnen, wird hier mit einer":[153]"pauschale gerechnet.":[153]
1730 [153][199](144)"fuer "ty$(i)
1740 [153]:[153][199](18)"1"[199](146);
1750 [153]" pauschale von 150 dm/monat (durch- schnittswert stand 1992)":[153]
1760 [153][199](18)"2"[199](146)" andere pauschale"[199](154)
1770 [161]e$:[139]e$[178]"1"[167]wk(i)[178]150:wj(i)[178]wk(i)[172]12:[137]1100
1780 [139]e$[178]"2"[167][153]:[153]:[153]"wieviel dm "wk(i):[153][199](145)[166]10):[158]sc:[133]wk(i)
1790 [139]e$[178]"2"[167]wj(i)[178]wk(i)[172]12:[137]1100
1800 [137]1770
1810 [153][199](147):[153]"bisher wurden daten eingegeben fuer"
1820 [129]i[178]1[164]n:[153]:[153]i;ty$(i):[130]:[142]
1830 [141]1810
1840 [153]:[153]"betriebskosten fuer welches fahrzeug?":[158]sc:[133]i
1850 [153][199](147)[199](18)" b e tr i e b s k o s t e n "
1860 [153][199](144)"fuer "ty$(i):[153][199](154)
1870 [153]"der motor braucht":[153]
1880 [153]" "[199](18)"n"[199](146)" normal "[199](18)"s";
1890 [153][199](146)" super "[199](18)"d"[199](146)" diesel"
1900 [153]:[153]:[153]" "[199](18)"a"[199](146)" bleifrei normal ";
1910 [153][199](18)"b"[199](146)" bleifrei super"
1920 [161]tr$(i)
1930 [139]tr$(i)[178]"n"[167][153]:[153]"preis/1 liter normalbenzin "pn
1940 [139]tr$(i)[178]"n"[167][153][199](145)[166]26):[158]sc:[133]pn:[137]2040
1950 [139]tr$(i)[178]"s"[167][153]:[153]"preis/1 liter superbenzin "ps
1960 [139]tr$(i)[178]"s"[167][153][199](145)[166]26):[158]sc:[133]ps:[137]2040
1970 [139]tr$(i)[178]"d"[167][153]:[153]"preis/1 liter diesel "pd
1980 [139]tr$(i)[178]"d"[167][153][199](145)[166]20):[158]sc:[133]pd:[137]2040
1990 [139]tr$(i)[178]"a"[167][153]:[153]"preis/1 liter normal(bleifr.) "pa
2000 [139]tr$(i)[178]"a"[167][153][199](145)[166]29):[158]sc:[133]pa:[137]2040
2010 [139]tr$(i)[178]"b"[167][153]:[153]"preis/1 liter super (bleifr.) "pb
2020 [139]tr$(i)[178]"b"[167][153][199](145)[166]29):[158]sc:[133]pb:[137]2040
2030 [137]1920
2040 [153]:[153]:[153][199](144)"verbrauch: "[199](154)"beruecksichtigen sie dabei,"
2050 [153]"ob der wagen ueberwiegend auf langstrek-";
2060 [153]"ken oder im stadtverkehr gefahren wird! "
2070 [153]"wieviel liter auf 100 km "ve(i)
2080 [153][199](145)[166]24):[158]sc:[133]ve(i)
2090 [153]:[153]:[153][199](144)"die kosten fuer nachgefuelltes oel"
2100 [153]"werden mit 1% der treibstoffkosten bei"
2110 [153]"ottomotoren und mit 2% bei dieselmotoren";
2120 [153]"beruecksichtigt."[199](154):[153]:[153]
2130 [141]2210
2140 [153][199](147)[199](18)" s o n s t i g e s "
2150 [153]"falls gewuenscht, koennen sie hier"
2160 [153]"kosten fuer wagenpflege, garagenmiete...";
2170 [153]"beruecksichtigen.":[153]
2180 [153]"summe pro jahr "so(i)
2190 [153][199](145)[166]14):[158]sc:[133]so(i)
2200 [137]1100
2210 [153]"weiter? (beliebige taste!)";
2220 [161]e$:[139]e$[178]""[167]2220
2230 [142]
2240 [143] * t a b e l l e n *
2250 [153][199](147)[199](18)" a n s c h a f f u n g s k o s t e n "
2260 [129]i[178]1[164]n:[153]ty$(i);
2270 [129]j[178]1[164]25[171][195](ty$(i)):[153]".";:[130]:px[178]pe(i):[139]kr(i)[178]1[167]px[178]ks(i)
2280 [153][181](px)"dm"
2290 [139]n[179]10[167][153]
2300 [130]i:[141]2210
2310 [137]1100
2320 [153][199](147):[129]y[178]1[164]6:[153]:[130]:[153]"durchschnittliche fahrstrecke pro jahr:"
2330 [153]:[158]sc:[133]s
2340 [153]:[153]:[153]
2350 [153]"nach wieviel jahren wollen sie":[153]"wieder verkaufen";
2355 [158]sc:[133]zj
2360 [142]
2370 [141]2320:[153][199](147)[199](18)" kosten pro monat bei"s;
2380 [153][199](157)" km/jahr "
2390 [129]i[178]1[164]n:[153]ty$(i);
2400 [129]j[178]1[164]28[171][195](ty$(i)):[153]".";:[130]
2410 [141]2450:[153][181](p(i)[173]12)"dm"
2420 [139]n[179]10[167][153]
2430 [130]i:[141]2210
2440 [137]1100
2450 [143] * kosten pro jahr *
2460 px[178]pe(i):[139]kr(i)[178]1[167]px[178]ks(i)
2470 p(i)[178]px[173]zj[170]vs(i)[170]vh(i)[170]vt(i)[170]vv(i)[170]vi(i)[170]wj(i)[170]so(i)
2480 [139]tr$(i)[178]"n"[167]tp[178]pn:oe[178]1.01
2490 [139]tr$(i)[178]"s"[167]tp[178]ps:oe[178]1.01
2500 [139]tr$(i)[178]"d"[167]tp[178]pd:oe[178]1.02
2510 [139]tr$(i)[178]"a"[167]tp[178]pa:oe[178]1.01
2520 [139]tr$(i)[178]"b"[167]tp[178]pb:oe[178]1.01
2530 p(i)[178]p(i)[170]s[173]100[172]ve(i)[172]tp[172]oe
2540 [142]
2550 [141]2320:[153][199](147)[199](18)" kosten pro kilometer bei"s;
2560 [153][199](157)" km/jahr "
2570 [129]i[178]1[164]n:[153]ty$(i);
2580 [129]j[178]1[164]30[171][195](ty$(i)):[153]".";:[130]:[141]2450
2590 kp[178][181](p(i)[173]s[172]100[170].5)[173]100
2600 kp$[178][196](kp):[139]kp[179]1[175][195](kp$)[179]4[167]kp$[178]kp$[170]"0"
2610 [139]kp[179]1[167]kp$[178]"0"[170][201](kp$,3)
2620 [153]kp$" dm":[139]n[179]10[167][153]
2630 [130]i:[141]2210:[137]1100
2640 [143] * speichern auf diskette *
2650 [153]:[159]1,8,15,"s:autovergl.":[160]1
2660 [159]1,8,8,"autovergl.,s,w"
2670 [152]1,n:[152]1,pn:[152]1,ps:[152]1,pd:[152]1,pa:[152]1,pb
2680 [152]1,p1$:[152]1,p2$:[152]1,p3$:[152]1,p4$:[152]1,p5$
2690 [129]i[178]1[164]n
2700 [152]1,ty$(i):[152]1,tk$(i):[152]1,le(i):[152]1,hu(i):[152]1,so(i)
2710 [152]1,pg(i):[152]1,pz(i):[152]1,pr(i):[152]1,pt(i):[152]1,pu(i):[152]1,pl(i)
2720 [152]1,pd(i):[152]1,pf(i):[152]1,p1(i):[152]1,p2(i):[152]1,p3(i)
2730 [152]1,p4(i):[152]1,p5(i)
2740 [152]1,p1$(i):[152]1,p2$(i):[152]1,p3$(i):[152]1,p4$(i):[152]1,p5$(i)
2750 [152]1,pe(i):[152]1,iz(i):[152]1,hr(i)
2760 [152]1,vs(i):[152]1,vh(i):[152]1,vt(i):[152]1,vv(i):[152]1,vi(i)
2770 [152]1,ve(i):[152]1,tp(i):[152]1,wk(i):[152]1,wj(i):[152]1,tr$(i)
2780 [152]1,pd$(i):[152]1,pt$(i):[152]1,pu$(i):[152]1,pl$(i):[152]1,pr$(i)
2790 [152]1,kb(i):[152]1,zm(i):[152]1,mo(i):[152]1,ge(i):[152]1,az(i):[152]1,ks(i):[152]1,kr(i)
2800 [152]1,pf$(i):[130]
2810 [160]1
2820 [137]1100
2830 [143] * laden von diskette *
2840 [159]1,8,8,"autovergl.,s,r"
2850 [132]1,n:[132]1,pn:[132]1,ps:[132]1,pd:[132]1,pa:[132]1,pb
2860 [132]1,p1$:[132]1,p2$:[132]1,p3$:[132]1,p4$:[132]1,p5$
2870 [129]i[178]1[164]n
2880 [132]1,ty$(i):[132]1,tk$(i):[132]1,le(i):[132]1,hu(i):[132]1,so(i)
2890 [132]1,pg(i):[132]1,pz(i):[132]1,pr(i):[132]1,pt(i):[132]1,pu(i):[132]1,pl(i)
2900 [132]1,pd(i):[132]1,pf(i):[132]1,p1(i):[132]1,p2(i):[132]1,p3(i)
2910 [132]1,p4(i):[132]1,p5(i)
2920 [132]1,p1$(i):[132]1,p2$(i):[132]1,p3$(i):[132]1,p4$(i):[132]1,p5$(i)
2930 [132]1,pe(i):[132]1,iz(i):[132]1,hr(i)
2940 [132]1,vs(i):[132]1,vh(i):[132]1,vt(i):[132]1,vv(i):[132]1,vi(i)
2950 [132]1,ve(i):[132]1,tp(i):[132]1,wk(i):[132]1,wj(i):[132]1,tr$(i)
2960 [132]1,pd$(i):[132]1,pt$(i):[132]1,pu$(i):[132]1,pl$(i):[132]1,pr$(i)
2970 [132]1,kb(i):[132]1,zm(i):[132]1,mo(i):[132]1,ge(i):[132]1,az(i):[132]1,ks(i):[132]1,kr(i)
2980 [132]1,pf$(i):[130]
2990 [139]pr$(i)[179][177]"*"[167]pr$(i)[178][196](pr(i))
3000 [160]1
3010 [137]1100
3020 [153]"bisher wurden daten eingegeben fuer"
3030 [129]i[178]1[164]n:[153]:[153]i;ty$(i):[130]
3040 [142]
3050 [143] * g r a f i k *
3060 [153][199](147)[199](18)" d i a g r a m m e z u r a u s w a h l"
3070 [153][199](18)"1"[199](146)" anschaffungspreise"
3080 [153]:[153][199](18)"2"[199](146)" monatliche kosten"
3090 [153]:[153][199](18)"3"[199](146)" kosten pro kilometer"
3100 [153]:[153][199](18)"4"[199](146)" hubraum und leistung"
3110 [153]:[153][199](18)"5"[199](146)" extras"
3120 [153]:[153][199](18)"6"[199](146)" druckerausgabe fuer ein fahrzeug"
3130 [153]:[153]:[153]:[153]"zur programmfortsetzung nach diagrammen"
3140 [153]"eine beliebige taste druecken!"
3150 [153]:[153]"wird eine hardcopy gewuenscht,"
3160 [153][199](18)"f1"[199](146)" druecken!"
3170 [161]e$:[139]e$[178]""[167]3170
3180 e[178][197](e$):[145]e[137]3200,3350,3430,3510,3990,4790
3190 [137]3170
3200 [143] * grafik anschaffungskosten *
3210 gr[178]1:mo[178]1:[151]53280,0:[151]53281,0:[143] hintergr.farbe
3220 [153][199](147)[199](158)" a n s c h a f f u n g s k o s t e n":[153]:ms[178]0
3230 [129]i[178]1[164]n:[139]ks(i)[177]60000[167]ms[178]3:[137]3270
3240 [139]ks(i)[177]30000[167][139]ms[179]2[167]ms[178]2
3250 [139]ks(i)[177]15000[167][139]ms[179]1[167]ms[178]1
3260 [130]
3270 [129]i[178]1[164]20:[153][163]5)[199](5)"abs then then then then then then":[130]
3280 [129]i[178]1[164]38:[153]"fre";:[130]:[153]
3290 [139]ms[178]0[167][153][163]14)"5000 10000 15000":di[178]500
3300 [139]ms[178]1[167][153][163]13)"10000 20000 30000":di[178]1000
3310 [139]ms[178]2[167][153][163]13)"20000 40000 60000":di[178]2000
3320 [139]ms[178]3[167][153][163]13)"30000 60000 90000":di[178]3000
3330 [129]i[178]1[164]n:k(i)[178]ks(i):[130]
3340 [137]3800
3350 [143] * grafik kosten pro monat *
3360 [141]2320:gr[178]1:mo[178]1:[151]53280,7:[151]53281,7:[143] hintergr.farbe
3370 [153][199](147)[199](31)" k o s t e n p r o m o n a t":[153]:ms[178]0
3380 [129]i[178]1[164]20:[153][163]5)[199](144)"abs then then then then then then":[130]
3390 [129]i[178]1[164]38:[153]"fre";:[130]:[153]
3400 [129]i[178]1[164]n:[141]2450:k(i)[178][181](p(i)[173]12):[130]
3410 [153][163]14)" 300 600 900":di[178]30
3420 [137]3800
3430 [143] * grafik kosten pro kilometer *
3440 [141]2320:gr[178]1:mo[178]1:[151]53280,14:[151]53281,14:[143] hintergr.farbe
3450 [153][199](147)[199](31)" k o s t e n p r o k i l o m e t e r":ms[178]0
3460 [129]i[178]1[164]20:[153][163]5)[199](144)"abs then then then then then then":[130]
3470 [129]i[178]1[164]38:[153]"fre";:[130]:[153]
3480 [129]i[178]1[164]n:[141]2450:k(i)[178][181](p(i)[173]s[172]100):[130]
3490 [153][163]14)"0.30 0.60 0.90";:di[178]3
3500 [137]3800
3510 [143] * grafik hubraum und leistung *
3520 gr[178]1:[151]53280,0:[151]53281,0:[143] hintergrundfarbe
3530 [153][199](147)[199](5):[153]:[153]:[129]i[178]1[164]n:[153]i;tk$(i):[130]:[153][199](19):le[178]0
3540 [129]i[178]1[164]n:[139]le(i)[177]100[167]le[178]1:[137]3560
3550 [130]:hu[178]0
3560 [129]i[178]1[164]n:[139]hu(i)[177]4000[167]hu[178]2:[137]3590
3570 [139]hu(i)[177]2000[167]hu[178]1
3580 [130]
3590 [139]hu[178]2[167]h1$[178]"6000":h2$[178]"4500":h3$[178]"3000":h4$[178]"1500":dh[178]300
3600 [139]hu[178]1[167]h1$[178]"4000":h2$[178]"3000":h3$[178]"2000":h4$[178]"1000":dh[178]200
3610 [139]hu[178]0[167]h1$[178]"2000":h2$[178]"1500":h3$[178]"1000":h4$[178]" 500":dh[178]100
3620 [139]le[178]1[167]l1$[178]"200":l2$[178]"150":l3$[178]"100":l4$[178]" 50":dl[178]10
3630 [139]le[178]0[167]l1$[178]"100":l2$[178]" 75":l3$[178]" 50":l4$[178]" 25":dl[178]5
3640 [153][199](19)" leistung ("[199](28)"(NULL)"[199](154)") hubraum((NULL))";
3650 [153]" in kw in ccm"
3660 [153][163]9)l1$"sqr....................(NULL)"h1$:x[178]4:[141]3700
3670 [153][163]9)l2$"sqr....................(NULL)"h2$:[141]3700
3680 [153][163]9)l3$"sqr....................(NULL)"h3$:[141]3700
3690 [153][163]9)l4$"sqr....................(NULL)"h4$:x[178]5:[141]3700:[137]3710
3700 [129]i[178]1[164]x:[153][163]12)"then . . . fn":[130]:[142]
3710 [153][163]12)"fre1frefrefre5frefrefre10frefrefre15frefrefre20fre"
3720 [129]i[178]1[164]n:lx[178][181](le(i)[173]dl[170].5):hx[178][181](hu(i)[173]dh[170].5)
3730 [151]1956[170]i[171]lx[172]40,81:[151]56228[170]i[171]lx[172]40,2
3740 [151]1956[170]i[171]hx[172]40,87:[151]56228[170]i[171]hx[172]40,7
3750 [139]hx[178]lx[167][151]1956[170]i[171]hx[172]40,42
3760 [130]
3770 [161]e$:[139]e$[178]""[167]3770
3780 [139][198](e$)[178]133[167][141]4660
3790 [137]1100
3800 [143] * balkengrafik *
3810 [153][199](19):[153]:[139]n[179]6[167][129]y[178]1[164]5:[153]:[130]
3820 [129]i[178]1[164]n:[153]tk$(i):[139]n[179]11[167][153]
3830 [130]i
3840 [153][199](19):[153]:[139]n[179]6[167][129]y[178]1[164]5:[153]:[130]
3850 [129]i[178]1[164]n:[153][166]6)
3860 k1[178][181](k(i)[173]di):k2[178][181]((k(i)[171]k1[172]di)[173]di[172]6)
3861 [139]k1[177]32[167]k1[178]32
3870 [139]k1[177][178]1[167][129]j[178]1[164]k1:[153][199](28)[199](18)" ";:[130]
3871 [139]k1[178]32[167][153]"cmd>";
3880 [139]k2[178]0[167][153]
3890 [139]k2[178]1[167][153][199](146)[199](165)
3900 [139]k2[178]2[167][153][199](146)[199](181)
3910 [139]k2[178]3[167][153][199](146)[199](161)
3920 [139]k2[178]4[167][153][199](182)
3930 [139]k2[178]5[167][153][199](167)
3940 [139]n[179]11[167][153]
3950 [130]i
3960 [161]e$:[139]e$[178]""[167]3960
3970 [139][198](e$)[178]133[167][141]4660
3980 mo[178]0:[137]1100
3990 [143] * e x t r a s *
4000 [153][199](147)[199](144)"*-serienm. a-aufpreis 0-nicht vorhanden "
4010 [139]n[179]10[167]as$[178]" ":as[178]3:[137]4040
4020 [139]n[177]15[167]as$[178]"":as[178]1:[137]4040
4030 as$[178]" ":as[178]2
4040 [129]j[178]1[164]3
4050 tb[178]11:[129]i[178]1[164]n
4060 [153][163]tb)[202](tk$(i),j,1);:tb[178]tb[170]as:[130]i:[153]:[130]j
4070 [129]i[178]1[164]40:[153]"fre";:[130]
4080 [129]i[178]1[164]n
4090 ur$(i)[178]pr$(i):[139]ur$(i)[179][177]"*"[175]ur$(i)[179][177]"0"[167]ur$(i)[178]"a"
4100 ut$(i)[178]pt$(i):[139]ut$(i)[179][177]"*"[175]ut$(i)[179][177]"0"[167]ut$(i)[178]"a"
4110 uu$(i)[178]pu$(i):[139]uu$(i)[179][177]"*"[175]uu$(i)[179][177]"0"[167]uu$(i)[178]"a"
4120 ul$(i)[178]pl$(i):[139]ul$(i)[179][177]"*"[175]ul$(i)[179][177]"0"[167]ul$(i)[178]"a"
4130 ud$(i)[178]pd$(i):[139]ud$(i)[179][177]"*"[175]ud$(i)[179][177]"0"[167]ud$(i)[178]"a"
4140 uf$(i)[178]pf$(i):[139]uf$(i)[179][177]"*"[175]uf$(i)[179][177]"0"[167]uf$(i)[178]"a"
4150 u1$(i)[178]p1$(i):[139]u1$(i)[179][177]"*"[175]u1$(i)[179][177]"0"[167]u1$(i)[178]"a"
4160 u2$(i)[178]p2$(i):[139]u2$(i)[179][177]"*"[175]u2$(i)[179][177]"0"[167]u2$(i)[178]"a"
4170 u3$(i)[178]p3$(i):[139]u3$(i)[179][177]"*"[175]u3$(i)[179][177]"0"[167]u3$(i)[178]"a"
4180 u4$(i)[178]p4$(i):[139]u4$(i)[179][177]"*"[175]u4$(i)[179][177]"0"[167]u4$(i)[178]"a"
4190 u5$(i)[178]p5$(i):[139]u5$(i)[179][177]"*"[175]u5$(i)[179][177]"0"[167]u5$(i)[178]"a"
4200 [130]
4210 [153]"autoradio ";:[129]i[178]1[164]n:[153]ur$(i);as$;:[130]:[153]
4220 [153]"4 tueren ";:[129]i[178]1[164]n:[153]ut$(i);as$;:[130]:[153]
4230 [153]"unterb.sch.";:[129]i[178]1[164]n:[153]uu$(i);as$;:[130]:[153]
4240 [153]"servolenkg ";:[129]i[178]1[164]n:[153]ul$(i);as$;:[130]:[153]
4250 [153]"schiebed. ";:[129]i[178]1[164]n:[153]ud$(i);as$;:[130]:[153]
4260 [153]"sonderlack.";:[129]i[178]1[164]n:[153]ul$(i);as$;:[130]:[153]
4270 [139]p1$[179][177]"0"[167][153]p1$;:[129]i[178]1[164]11[171][195](p1$):[153]" ";:[130]
4280 [139]p1$[179][177]"0"[167][129]i[178]1[164]n:[153]u1$(i);as$:[130]:[153]
4290 [139]p2$[179][177]"0"[167][153]p2$;:[129]i[178]1[164]11[171][195](p2$):[153]" ";:[130]
4300 [139]p2$[179][177]"0"[167][129]i[178]1[164]n:[153]u2$(i);as$;:[130]:[153]
4310 [139]p3$[179][177]"0"[167][153]p3$;:[129]i[178]1[164]11[171][195](p3$):[153]" ";:[130]
4320 [139]p3$[179][177]"0"[167][129]i[178]1[164]n:[153]u3$(i);as$;:[130]:[153]
4330 [139]p4$[179][177]"0"[167][153]p4$;:[129]i[178]1[164]11[171][195](p4$):[153]" ";:[130]
4340 [139]p4$[179][177]"0"[167][129]i[178]1[164]n:[153]u4$(i);as$;:[130]:[153]
4350 [139]p5$[179][177]"0"[167][153]p5$;:[129]i[178]1[164]11[171][195](p5$):[153]" ";:[130]
4360 [139]p5$[179][177]"0"[167][129]i[178]1[164]n:[153]u5$(i);as$;:[130]:[153]
4370 [161]e$:[139]e$[178]""[167]4370
4380 [139][198](e$)[178]133[167][141]4660
4390 [137]1100
4400 [143] * finanzierung *
4410 [153]"soll zumindest ein teil des neuwagens finanziert werden?"
4420 [161]e$:[139]e$[178]"n"[167]kr(i)[178]0:ks(i)[178]pe(i):[142]
4430 [139]e$[178]"j"[167]kr(i)[178]1:[137]4450
4440 [137]4420
4450 [153]:[153]"wird zusaetzlich zu dem in zahlung"
4460 [153]"genommenen auto noch eine anzahlung"
4470 [153]"geleistet?"
4480 [161]e$:[139]e$[178]"j"[167]4510
4490 [139]e$[178]"n"[167]kb(i)[178]pe(i):[137]4540
4500 [137]4480
4510 [153]"hoehe der anzahlung ";az(i)
4520 [153][199](145)[166]20):[158]sc:[133]az(i)
4530 kb(i)[178]pe(i)[171]az(i)
4540 [153]:[153]"zinsen pro monat (%) ";zm(i)
4550 [153][199](145)[166]20):[158]sc:[133]zm(i)
4560 [153]:[153]"wieviele monatsraten ";mo(i)
4570 [153][199](145)[166]20):[158]sc:[133]mo(i)
4580 [153]:[153]"bearbeitungsgeb. (%) ";ge(i)
4590 [153][199](145)[166]20):[158]sc:[133]ge(i)
4600 ks(i)[178]((zm(i)[172]mo(i)[170]ge(i))[173]100[170]1)[172]kb(i)
4610 [153]:[153]:[153]"kreditsumme:"kb(i)"dm"
4620 [153]"sie zahlen :"[181](ks(i)[172]100[170].5)[173]100;
4630 [153]"dm"
4640 [153]"monatsrate :"[181](ks(i)[173]mo(i)[172]100[170].5)[173]100"dmcont":[153]
4650 [142]
4660 [143] * hardcopy *
4670 [139]gr[178]1[167]g1[178]8
4680 [139]gr[178]0[167]g1[178]15
4690 h1[178]1024:[159]4,4:[152]4
4700 [129]h2[178]0[164]24:h1$[178]"":[129]h3[178]0[164]39
4710 h4[178]0:h4[178][194](h1[170]h2[172]40[170]h3):[139]h4[177]128[167]h4[178]h4[171]128:h6[178]1:h1$[178]h1$[170][199](18)
4720 [139]h4[177]95[176]h4[179]32[167]h5[178]h4[170]64
4730 [139]h4[177]31[175]h4[179]64[167]h5[178]h4
4740 [139]h4[177]63[175]h4[179]96[167]h5[178]h4[170]32
4750 h2$[178][199](h5)
4760 h1$[178]h1$[170]h2$:[139]h6[178]1[167]h6[178]0:h1$[178]h1$[170][199](146)
4770 [130]:[152]4,[199](15)[199](16)"20"h1$[199](g1)
4780 [130]:[152]4:[160]4:gr[178]0:[142]
4790 [143] * druckerausgabe fuer ein fahrzeug *
4800 [153][199](147):[129]i[178]1[164]n:[153]i;ty$(i):[130]
4810 [153]:[153]"daten fuer fahrzeug nr.";:[158]sc:[133]i
4820 [159]4,4:[152]4
4830 [152]4,[199](14)i" "ty$(i)[199](15)
4840 [152]4,"leistung (kw): "le(i)
4850 [152]4,"hubraum (ccm): "hu(i)
4860 [152]4,"grundpreis: "pg(i):[152]4
4870 [152]4,"ueberfuehrung+zulassung:"pz(i)
4880 [152]4,"autoradio: "pr$(i)
4890 [152]4,"4 tueren: "pt$(i)
4900 [152]4,"unterboden- u.hohlr.sch.:"pu$(i)
4910 [152]4,"servolenkung: "pl$(i)
4920 [152]4,"schiebedach: "pd$(i)
4930 [152]4,"sonderlackierung: "pf$(i)
4940 [139]p1$[179][177]"0"[167][152]4,p1$;[199](16)"25"p1$(i)
4950 [139]p2$[179][177]"0"[167][152]4,p2$,[199](16)"25"p2$(i)
4960 [139]p3$[179][177]"0"[167][152]4,p3$,[199](16)"25"p3$(i)
4970 [139]p4$[179][177]"0"[167][152]4,p4$,[199](16)"25"p4$(i)
4980 [139]p5$[179][177]"0"[167][152]4,p5$,[199](16)"25"p5$(i)
4990 [152]4,"inzahlungnahme: "iz(i)
5000 [152]4,"haendlerrabatt: "hr(i)
5010 [152]4,"gesamtpreis: "pe(i)
5020 [139]kb(i)[178]0[167]5050
5030 [152]4:[139]az(i)[179][177]0[167][152]4,"anzahlung: "az(i)
5040 [152]4,mo(i)"monatsraten ("zm(i)"cmd%) zu je"[181](ks(i)[173]mo(i)[172]100[170].5)[173]100"cmddm"
5050 [152]4:[152]4,"kraftfahrzeugsteuer/jahr:"vs(i)
5060 [152]4,"haftpflichtvers./jahr: "vh(i)
5070 [139]vt(i)[179][177]0[167][152]4,"teilkaskoversicherung: "vt(i)
5080 [139]vv(i)[179][177]0[167][152]4,"vollkaskoversicherung: "vv(i)
5090 [139]vi(i)[179][177]0[167][152]4,"insassenunfallversich.: "vi(i)
5100 [152]4:[152]4,"mittlerer verbrauch:"ve(i)"l/100 km";
5110 [139]tr$(i)[178]"n"[167][152]4,"(normalbenzin)"
5120 [139]tr$(i)[178]"s"[167][152]4,"(superbenzin)"
5130 [139]tr$(i)[178]"d"[167][152]4,"(diesel)"
5140 [139]tr$(i)[178]"a"[167][152]4,"(bleifrei normal)"
5150 [139]tr$(i)[178]"b"[167][152]4,"(bleifrei super)"
5160 [153]"druckerausgabe fuer einen weiteren wagen(j/n)"
5170 [161]e$:[139]e$[178]""[167]5170
5180 [160]4:[139]e$[178]"j"[167]4790
5190 [137]1100